home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / dev / gg / ncurses-5.3.lha / ncurses-5.3 / form / fld_ftlink.c < prev    next >
C/C++ Source or Header  |  2002-10-24  |  4KB  |  87 lines
  1. /****************************************************************************
  2.  * Copyright (c) 1998,2000 Free Software Foundation, Inc.                   *
  3.  *                                                                          *
  4.  * Permission is hereby granted, free of charge, to any person obtaining a  *
  5.  * copy of this software and associated documentation files (the            *
  6.  * "Software"), to deal in the Software without restriction, including      *
  7.  * without limitation the rights to use, copy, modify, merge, publish,      *
  8.  * distribute, distribute with modifications, sublicense, and/or sell       *
  9.  * copies of the Software, and to permit persons to whom the Software is    *
  10.  * furnished to do so, subject to the following conditions:                 *
  11.  *                                                                          *
  12.  * The above copyright notice and this permission notice shall be included  *
  13.  * in all copies or substantial portions of the Software.                   *
  14.  *                                                                          *
  15.  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  *
  16.  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               *
  17.  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   *
  18.  * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   *
  19.  * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    *
  20.  * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    *
  21.  * THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               *
  22.  *                                                                          *
  23.  * Except as contained in this notice, the name(s) of the above copyright   *
  24.  * holders shall not be used in advertising or otherwise to promote the     *
  25.  * sale, use or other dealings in this Software without prior written       *
  26.  * authorization.                                                           *
  27.  ****************************************************************************/
  28.  
  29. /****************************************************************************
  30.  *   Author:  Juergen Pfeifer, 1995,1997                                    *
  31.  *   Contact: http://www.familiepfeifer.de/Contact.aspx?Lang=en             *
  32.  ****************************************************************************/
  33.  
  34. #include "form.priv.h"
  35.  
  36. MODULE_ID("$Id: fld_ftlink.c,v 1.6 2002/07/06 15:33:27 juergen Exp $")
  37.  
  38. /*---------------------------------------------------------------------------
  39. |   Facility      :  libnform  
  40. |   Function      :  FIELDTYPE *link_fieldtype(
  41. |                                FIELDTYPE *type1,
  42. |                                FIELDTYPE *type2)
  43. |   
  44. |   Description   :  Create a new fieldtype built from the two given types.
  45. |                    They are connected by an logical 'OR'.
  46. |                    If an error occurs, errno is set to                    
  47. |                       E_BAD_ARGUMENT  - invalid arguments
  48. |                       E_SYSTEM_ERROR  - system error (no memory)
  49. |
  50. |   Return Values :  Fieldtype pointer or NULL if error occured.
  51. +--------------------------------------------------------------------------*/
  52. NCURSES_EXPORT(FIELDTYPE *)
  53. link_fieldtype 
  54. (FIELDTYPE * type1, FIELDTYPE * type2)
  55. {
  56.   FIELDTYPE *nftyp = (FIELDTYPE *)0;
  57.  
  58.   if ( type1 && type2 )
  59.     {
  60.       nftyp = (FIELDTYPE *)malloc(sizeof(FIELDTYPE));
  61.       if (nftyp)
  62.     {
  63.       *nftyp = *_nc_Default_FieldType;
  64.       nftyp->status |= _LINKED_TYPE;
  65.       if ((type1->status & _HAS_ARGS) || (type2->status & _HAS_ARGS) )
  66.         nftyp->status |= _HAS_ARGS;
  67.       if ((type1->status & _HAS_CHOICE) || (type2->status & _HAS_CHOICE) )
  68.         nftyp->status |= _HAS_CHOICE;
  69.       nftyp->left  = type1;
  70.       nftyp->right = type2; 
  71.       type1->ref++;
  72.       type2->ref++;
  73.     }
  74.       else
  75.     {
  76.       SET_ERROR( E_SYSTEM_ERROR );
  77.     }
  78.     }
  79.   else
  80.     {
  81.       SET_ERROR( E_BAD_ARGUMENT );
  82.     }
  83.   return nftyp;
  84. }
  85.  
  86. /* fld_ftlink.c ends here */
  87.